Option Explicit
Sub C_Sample069()
    Application.SheetsInNewWorkbook = 3	'Ni
End Sub

